home *** CD-ROM | disk | FTP | other *** search
/ Internet.Works 39 / Issue 39.iso / pc / Software / 00001.ls next >
Encoding:
Text File  |  2000-10-18  |  421 b   |  20 lines
  1. on prepareMovie
  2.   global gAdvertCounter, gAdvert, gAdvertTotal
  3.   sprite(100).member = member(gAdvert, "Advert")
  4.   updateStage()
  5. end
  6.  
  7. on AdChange
  8.   global gAdvertCounter, gAdvert, gAdvertTotal
  9.   if gAdvert = gAdvertTotal then
  10.     gAdvert = 1
  11.   else
  12.     if gAdvert < gAdvertTotal then
  13.       gAdvert = gAdvert + 1
  14.     end if
  15.   end if
  16.   sprite(100).member = member(gAdvert, "Advert")
  17.   updateStage()
  18.   gAdvertCounter = 0
  19. end
  20.